home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / randpass.zip / RANDPASS.PAS < prev   
Pascal/Delphi Source File  |  1993-05-25  |  537b  |  23 lines
  1. program RandomPasswordGenerator; {* By Colin Bowern *}
  2.  
  3. {* Just a random password generator *}
  4. {* for misc. use!                   *}
  5.  
  6. uses Dos, Crt;
  7.  
  8. const pwrdlen = 8;                              {* Password Length *}
  9.  
  10. var password : array[1..pwrdlen] of word;
  11. var i : integer;
  12.  
  13. begin
  14.   for i := 1 to pwrdlen do password[i] := 0;
  15.   Randomize;
  16.   for i := 1 to pwrdlen do begin
  17.     repeat
  18.       password[i] := Random(126);
  19.     until password[i] > 34
  20.   end;
  21.   for i := 1 to pwrdlen do write(chr(password[i]));
  22. end.
  23.